home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 2 / Amoszine 2.adf / andrew_smith_source / Box.AMOS / Box.amosSourceCode
AMOS Source Code  |  1992-02-26  |  598b  |  34 lines
  1. ' Circle Draw  
  2.  
  3.    Screen 0
  4.    
  5.    Do 
  6.       
  7.       ' Anchor first point 
  8.       
  9.       Repeat 
  10.          X1=X Screen(X Mouse)
  11.          Y1=Y Screen(Y Mouse)
  12. '         If Mouse Screen=3 Then _PALETTE_CHANGE 
  13. '         CLICKOPTION
  14.       Until Mouse Click=1
  15.       
  16.       ' XOR write mode 
  17.       
  18.       Gr Writing 2
  19.       
  20.       Repeat 
  21.          X2=X Screen(X Mouse)
  22.          Y2=Y Screen(Y Mouse)
  23.          Box X1,Y1 To X2,Y2
  24.          Wait Vbl 
  25.          Box X1,Y1 To X2,Y2
  26.       Until Mouse Click=1
  27.       
  28.       ' Normal write mode
  29.       
  30.       Gr Writing 0
  31.       
  32.       Box X1,Y1 To X2,Y2
  33.       
  34.    Loop